home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00443_back arrow class.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  837 b   |  33 lines
  1. property ancestor, pLabelList
  2. global gCurrLabel, IconList1, IconList2, CreditList, gTourForwardArrow, firstTime
  3.  
  4. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  5.   if objectp(descendant) then
  6.     object = descendant
  7.   else
  8.     object = me
  9.   end if
  10.   ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, object)
  11.   pLabelList = MakeLabelList()
  12.   return me
  13. end
  14.  
  15. on performFunction me
  16.   sound stop 1
  17.   if marker(0) = label("3.3") then
  18.     repeat with X = 5 to 12
  19.       iconObj = getaProp(IconList2, X)
  20.       outScope(iconObj)
  21.     end repeat
  22.   end if
  23.   CurrPosition = getPos(pLabelList, gCurrLabel)
  24.   PrevLabel = getAt(pLabelList, CurrPosition - 1)
  25.   ResetForVideo()
  26.   UnPuppetSprites()
  27.   outScope(gTourForwardArrow)
  28.   outScope(me._me)
  29.   outScope(me._me)
  30.   go(PrevLabel)
  31.   return me
  32. end
  33.